Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/iv.dir/00052_credits enter.ls

Text File | 1996-04-19 | 1.3 KB | 39 lines

on mouseUp
  global givState, givCreditsCleanupFlag, givWhichText, givMAINMONITORSPRITE
  set tmp to EMPTY
  set tmp to the text of field "enter name"
  if the number of chars in field "enter name" = 0 then
    set the text of field "enter name" to " "
  end if
  repeat while the last char in tmp = " "
    delete char the number of chars in tmp of tmp
  end repeat
  set the userName of givState to tmp
  set tmp to EMPTY
  set tmp to the text of field "enter title"
  if the number of chars in field "enter title" = 0 then
    set the text of field "enter title" to " "
  end if
  repeat while the last char in tmp = " "
    delete char the number of chars in tmp of tmp
  end repeat
  set the userTitle of givState to tmp
  set tmp to EMPTY
  set tmp to the text of field "enter location"
  if the number of chars in field "enter location" = 0 then
    set the text of field "enter location" to " "
  end if
  repeat while the last char in tmp = " "
    delete char the number of chars in tmp of tmp
  end repeat
  set the userLoc of givState to tmp
  set givCreditsCleanupFlag to 1
  set the keyDownScript to EMPTY
  set the editableText of sprite givWhichText to 0
  set the castNum of sprite givMAINMONITORSPRITE to the number of cast "MainMonitorCast"
  puppetSprite(24, 0)
  puppetSprite(25, 0)
  puppetSprite(26, 0)
  go("ivMain")
end